home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DTP / P-Z / Swiss Army Font Remover 1.1.cpt / Swiss Army Font Remover 1.1 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1992-07-29  |  2KB  |  22 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.1</name>
  5.     <id>-1</id>
  6.     <cardCount>2</cardCount>
  7.     <cardID>3015</cardID>
  8.     <listID>4036</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>544</width>
  14.         <height>376</height>
  15.     </cardSize>
  16.     <script>on openStackif the version < 2.1 thenanswer "This stack requires version 2.1 of Hypercard to actually operate. You are using version" && ¬¨the version & "!" with "Just Looking" or "Quit"if it contains "Quit" then domenu "Quit Hypercard"if it contains "Just Looking" then set the userlevel to 3end ifset the textfont of cd btn Id 1 to helveticaset the textstyle of cd btn id 1 to plainset the textstyle of cd btn id 1 to boldif the optionkey is down  thenclick at the loc of cd btn id 2 -- FOR SPEEDexit openstackend ifclick at the loc of cd btn id 1end openStackon closeStackhide cd pictureplay "whoosh"show cd pictureif the freesize of this stack / the size of this stack >=.05 thenput "Compacting stack" && name of this stack& ". Please wait..."domenu "Compact Stack"hide msgend ifend closeStack</script>
  17.     <background id="2611" file="background_2611.xml" name="" />
  18.     <background id="4817" file="background_4817.xml" name="" />
  19.     <card id="3015" file="card_3015.xml" marked="false" name="" owner="2611" />
  20.     <card id="4941" file="card_4941.xml" marked="false" name="" owner="4817" />
  21. </stack>
  22.